1.1 Introdution About Cuba

The Caribbean island nation of Cuba is made up of the main island, Isla de la Juventud, plus several other archipelagos. The Dominican Republic, Jamaica, Haiti, the Bahamas, Mexico, and the Cayman Islands are its closest neighbors. With a surface size of 109,884 km2, the main island of Cuba is the largest island in both Cuba and the Caribbean (42,426 sq mi). With nearly 11 million people, Cuba has the second-highest population in the Caribbean behind Haiti.

Salsa and other Cuban dance forms, Fidel Castro and Che Guevara, 1950s-era cars, Spanish-colonial architecture, the Cuban National Ballet, the Buena Vista Social Club, and Guantanamo Bay are just a few of Cuba’s well-known exports.

The majority of Cuba is flat and tropical, with mountains to the southeast. The president serves as both the chief of state and the head of government in the communist system of government. Cuba has a planned economy under state control, where the majority of the industrial equipment is owned and managed by the government.

1.2 History of Cuba

The Ciboney and Guanahatabey tribes were the first inhabitants of Cuba. The Taino tribe from Venezuela acquired control of the island about a thousand years ago. After defeating the Taino in 1511, Spanish armies annexed the island as their own.

Many Taino people were forced into slave labor by the Spanish. The majority passed away through diseases brought by Europeans and from overwork. Then, for the purpose of planting and harvesting sugarcane, tens of thousands of African slaves were sent to Cuba.

In 1898, American forces assisted in the expulsion of the Spanish from Cuba, and by 1902, Cuba had achieved independence. But the island was heavily influenced by the United States. Fidel Castro-led communist revolutionaries took over in 1959.

1.3 Climate of Cuba

The subtropical climate on the island of Cuba divides the year into two seasons: the wet season, which lasts from May to October and has an average high temperature of 86 degrees in July and August, and the dry season, which lasts from November to April and has an average low temperature of 68 degrees in February.

The rainy season often begins in June and lasts through October or November. Showers of heavy but brief rain are common during this season, mainly in the late afternoon. The island experiences the warmest temperatures in the late summer, with the eastern section of the island experiencing the highest temperatures.

During the warmer months, the water around here reaches 86 degrees F, and in the winter, it only drops to 75. Although there is a chance of hurricanes in September and October, the islanders view them as a natural occurrence with manageable hazards. Pinar del Rio, Isla de la Juventud, and Havana are the areas that are most frequently impacted.

1.4 COVID-19 induced economic crisis in Cuba

After the socialist camp fell apart, Cuba already had its biggest economic crisis since the 1990s before the covid-19 pandemic. Cuba has experienced severe cuts in its economic ties with Venezuela, as well as Trump’s tough measures that increased the U.S. embargo, in addition to essentially preserving the central planning model (with some small adjustments) that was unable to enhance GDP growth and production. The presentation displays the domestic macroeconomic indicators and the effects of the two foreign variables while assessing the effects of these three elements.

Reuters, HAVANA, July 21 - Although ordinary Cubans have not yet noticed much relief from food and energy shortages, the island nation’s economy has started to rebound from the pandemic’s effects and should increase 4% this year, according to its minister of the economy.

The economy expanded 10.9% through March, according to Economy Minister Alejandro Gil, compared to the same period in 2021, when the COVID-19 pandemic “almost halted” the economy. Nevertheless, it is still 7.3% lower than it was in 2019.

1.5 Location of the Cuba

2.0 Data Analysis

Here we need to first clear the data sheet. And filtering the missing values. After that replacing values for that missing values.

2.1 Data Clearing

library(coronavirus)
data("coronavirus")

cuba_cleared <- coronavirus %>%filter(country=="Cuba")
north_america_cleared <- coronavirus %>% filter(continent_name == "North America")

2.2 Filtering Missing Values

##       date              province           country               lat       
##  Min.   :2020-01-22   Length:2652        Length:2652        Min.   :21.52  
##  1st Qu.:2020-08-29   Class :character   Class :character   1st Qu.:21.52  
##  Median :2021-04-07   Mode  :character   Mode  :character   Median :21.52  
##  Mean   :2021-04-07                                         Mean   :21.52  
##  3rd Qu.:2021-11-14                                         3rd Qu.:21.52  
##  Max.   :2022-06-23                                         Max.   :21.52  
##                                                                            
##       long            type               cases              uid     
##  Min.   :-77.78   Length:2652        Min.   :    0.0   Min.   :192  
##  1st Qu.:-77.78   Class :character   1st Qu.:    0.0   1st Qu.:192  
##  Median :-77.78   Mode  :character   Median :   12.0   Median :192  
##  Mean   :-77.78                      Mean   :  561.4   Mean   :192  
##  3rd Qu.:-77.78                      3rd Qu.:  185.2   3rd Qu.:192  
##  Max.   :-77.78                      Max.   :11174.0   Max.   :192  
##                                      NA's   :2                      
##      iso2               iso3               code3     combined_key      
##  Length:2652        Length:2652        Min.   :192   Length:2652       
##  Class :character   Class :character   1st Qu.:192   Class :character  
##  Mode  :character   Mode  :character   Median :192   Mode  :character  
##                                        Mean   :192                     
##                                        3rd Qu.:192                     
##                                        Max.   :192                     
##                                                                        
##    population       continent_name     continent_code    
##  Min.   :11326616   Length:2652        Length:2652       
##  1st Qu.:11326616   Class :character   Class :character  
##  Median :11326616   Mode  :character   Mode  :character  
##  Mean   :11326616                                        
##  3rd Qu.:11326616                                        
##  Max.   :11326616                                        
## 

# Locate the row numbers of the missing values.
which(is.na(cuba_cleared$cases))
## [1] 1090 2330
#There are two missing val
## [1] 2652
## [1] 2652
##       date              province           country               lat       
##  Min.   :2020-01-22   Length:2652        Length:2652        Min.   :21.52  
##  1st Qu.:2020-08-29   Class :character   Class :character   1st Qu.:21.52  
##  Median :2021-04-07   Mode  :character   Mode  :character   Median :21.52  
##  Mean   :2021-04-07                                         Mean   :21.52  
##  3rd Qu.:2021-11-14                                         3rd Qu.:21.52  
##  Max.   :2022-06-23                                         Max.   :21.52  
##       long            type               cases              uid     
##  Min.   :-77.78   Length:2652        Min.   :    0.0   Min.   :192  
##  1st Qu.:-77.78   Class :character   1st Qu.:    0.0   1st Qu.:192  
##  Median :-77.78   Mode  :character   Median :   12.0   Median :192  
##  Mean   :-77.78                      Mean   :  562.7   Mean   :192  
##  3rd Qu.:-77.78                      3rd Qu.:  187.0   3rd Qu.:192  
##  Max.   :-77.78                      Max.   :11174.0   Max.   :192  
##      iso2               iso3               code3     combined_key      
##  Length:2652        Length:2652        Min.   :192   Length:2652       
##  Class :character   Class :character   1st Qu.:192   Class :character  
##  Mode  :character   Mode  :character   Median :192   Mode  :character  
##                                        Mean   :192                     
##                                        3rd Qu.:192                     
##                                        Max.   :192                     
##    population       continent_name     continent_code        col      
##  Min.   :11326616   Length:2652        Length:2652        black:2650  
##  1st Qu.:11326616   Class :character   Class :character   red  :   2  
##  Median :11326616   Mode  :character   Mode  :character               
##  Mean   :11326616                                                     
##  3rd Qu.:11326616                                                     
##  Max.   :11326616
##       date              province           country               lat       
##  Min.   :2020-01-22   Length:2652        Length:2652        Min.   :21.52  
##  1st Qu.:2020-08-29   Class :character   Class :character   1st Qu.:21.52  
##  Median :2021-04-07   Mode  :character   Mode  :character   Median :21.52  
##  Mean   :2021-04-07                                         Mean   :21.52  
##  3rd Qu.:2021-11-14                                         3rd Qu.:21.52  
##  Max.   :2022-06-23                                         Max.   :21.52  
##       long            type               cases              uid     
##  Min.   :-77.78   Length:2652        Min.   :    0.0   Min.   :192  
##  1st Qu.:-77.78   Class :character   1st Qu.:    0.0   1st Qu.:192  
##  Median :-77.78   Mode  :character   Median :   12.0   Median :192  
##  Mean   :-77.78                      Mean   :  562.7   Mean   :192  
##  3rd Qu.:-77.78                      3rd Qu.:  187.0   3rd Qu.:192  
##  Max.   :-77.78                      Max.   :11174.0   Max.   :192  
##      iso2               iso3               code3     combined_key      
##  Length:2652        Length:2652        Min.   :192   Length:2652       
##  Class :character   Class :character   1st Qu.:192   Class :character  
##  Mode  :character   Mode  :character   Median :192   Mode  :character  
##                                        Mean   :192                     
##                                        3rd Qu.:192                     
##                                        Max.   :192                     
##    population       continent_name     continent_code        col      
##  Min.   :11326616   Length:2652        Length:2652        black:2650  
##  1st Qu.:11326616   Class :character   Class :character   red  :   2  
##  Median :11326616   Mode  :character   Mode  :character               
##  Mean   :11326616                                                     
##  3rd Qu.:11326616                                                     
##  Max.   :11326616

3.0 Confirmed cases in Cuba

3.1 Death case in Cuba

3.2 Recovery cases in Cuba

3.3 Daily cases in Cuba by Confirmed, Death & Recovery

3.4 Time series analysis-Cuba

3.5 Covid-19 confirmed cases by type in country

3.6 Covid-19 death cases by type in country

3.7 Covid-19 recovery cases by type in country